home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-01
/
phmacro.zip
/
STD2.OUT
< prev
next >
Wrap
Text File
|
1993-01-04
|
909b
|
56 lines
fn: nam=<f> parms=<a> def=<f( x * (a))>
<fffffffffff>
obj: nam=<x> def=<2>
<x>
obj: nam=<g> def=<f>
<g>
fn: nam=<t> parms=<a> def=<a>
<t>
0: t(t(g)(0) + t)(1);
:
1: t(g)(0) + t
:
1.1: g
:
1.1: f
: g
treating end-of-buffer as end-of-file
1R: t(_)
:
1R: a
: t
hide-set #0 = {gt}
1R: f
: 0
1: f(0) + t
: 0
1.1: 0
:
1R: f(_)
:
1R: f( x * (a))
: fffffffffff
1R: f( x * (0))
: fffffffffff
hide-set #1 = {fgt}
1: f( x * (0)) + t
: 11111111111
1: F( x * (0)) + t
: 11111111111
hide-set #2 = {fgtx}
1: F( 2 * (0)) + t
: 11121111111
treating end-of-buffer as end-of-file
0R: t(_)
:
0R: a
: t
0R: F( 2 * (0)) + t
: 11121111111tttt
0: F( 2 * (0)) + t(1);
: 11121111111tttt
0: F( 2 * (0)) + T(1);
: 11121111111tttt
0: f( 2 * (0)) + t(1);
: